home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr50 / vbmdixpl.zip / ABOUT.FRM next >
Text File  |  1993-02-14  |  2KB  |  66 lines
  1. VERSION 2.00
  2. Begin Form about 
  3.    BorderStyle     =   3  'Fixed Double
  4.    Caption         =   "About"
  5.    Height          =   4776
  6.    Left            =   2676
  7.    LinkTopic       =   "Form2"
  8.    ScaleHeight     =   4356
  9.    ScaleWidth      =   5724
  10.    Top             =   1488
  11.    Width           =   5820
  12.    Begin PictureBox LogoPic 
  13.       AutoSize        =   -1  'True
  14.       BorderStyle     =   0  'None
  15.       Height          =   612
  16.       Left            =   2520
  17.       ScaleHeight     =   612
  18.       ScaleWidth      =   732
  19.       TabIndex        =   2
  20.       Top             =   2400
  21.       Width           =   732
  22.    End
  23.    Begin CommandButton OK 
  24.       Caption         =   "OK"
  25.       Height          =   372
  26.       Left            =   2160
  27.       TabIndex        =   1
  28.       Top             =   3480
  29.       Width           =   1452
  30.    End
  31.    Begin Label AppName 
  32.       Alignment       =   2  'Center
  33.       AutoSize        =   -1  'True
  34.       Caption         =   "AppName"
  35.       Height          =   192
  36.       Left            =   2400
  37.       TabIndex        =   0
  38.       Top             =   480
  39.       Width           =   852
  40.    End
  41. End
  42.  
  43. Sub Form_Load ()
  44.  
  45.     ' set caption
  46.     about.Caption = "About " + App.Title
  47.  
  48.     ' set Logo
  49.     about.LogoPic = MdiForm1.Icon
  50.  
  51.     ' Text
  52.     TheStr$ = App.Title + Chr(10) + Chr(10)
  53.     TheStr$ = TheStr$ + "Copyright <Your Company here> 1993 " + Chr(10) + Chr(10)
  54.     TheStr$ = TheStr$ + "If you like this sample, sent a postcard to :" + Chr(10) + Chr(10)
  55.     TheStr$ = TheStr$ + "Hans-Jochen Schmitt" + Chr(10)
  56.     TheStr$ = TheStr$ + "Paul-Wagner Str. 28" + Chr(10)
  57.     TheStr$ = TheStr$ + "6100 Darmstadt" + Chr(10)
  58.     TheStr$ = TheStr$ + "Germany" + Chr(10)
  59.     about.AppName = TheStr$
  60. End Sub
  61.  
  62. Sub OK_Click ()
  63.     Unload about
  64. End Sub
  65.  
  66.